home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / y.scm < prev   
Encoding:
Text File  |  1990-03-27  |  261 b   |  20 lines

  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4. Description:
  5. This code tests the data flow analyzer.
  6.  
  7. Usage:
  8. (fact 5) -> 120
  9. |#
  10.  
  11. (declare (usual-integrations))
  12.  
  13. (define fact
  14.   (let ((f (lambda (p n)
  15.          (if (zero? n)
  16.          1
  17.          (* n (p p (-1+ n)))))))
  18.     (lambda (n)
  19.       (f f n))))
  20.